program testProject2Program;

class testProject2Class

BEGIN

VAR 	XRay : ARRAY[0 .. 4] OF integer;
	YRay : ARRAY[8 .. 12] OF integer;
	aa : integer;
	bb : integer;
	cc : integer;
	dd : integer;
	ee : integer;
	ff : integer;
	gg : integer;

FUNCTION testProject2Function;
VAR	dd : integer;
BEGIN

	bb := aa + cc;
	if (aa + cc) THEN
                cc := 1
	else
		cc := 2;

	cc := bb + dd;
	while bb + dd DO
		ee := 1


END

END
.



